home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
strlib.zip
/
STRCSPN.C
< prev
next >
Wrap
Text File
|
1993-01-04
|
768b
|
27 lines
/* File : strcspn.c
Author : Richard A. O'Keefe.
Updated: 11 April 1984
Defines: strspn()
strcspn(s1, s2) returns the length of the longest prefix of s1
consisting entirely of characters which are NOT in s2 ("c" is
"complement"). NUL is considered to be part of s2. As _str2set
will never include NUL in a set, we have to check for it explicitly.
*/
#include "strings.h"
#include "_str2set.h"
int strcspn(str, set)
register _char_ *str;
char *set;
{
register int L;
_str2set(set);
for (L = 0; *str && _set_vec[*str++] != _set_ctr; L++) ;
return L;
}